home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / RTGI.ZIP / TESTUNIT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-09-04  |  2.4 KB  |  101 lines
  1. unit Testunit;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, DBTables, DB, ExtCtrls, RtDbID;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     Database1: TDatabase;
  13.     RtDbGenID1: TRtDbGenID;
  14.     Table1: TTable;
  15.     Label1: TLabel;
  16.     Edit1: TEdit;
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     Label2: TLabel;
  20.     Label3: TLabel;
  21.     Bevel1: TBevel;
  22.     ComboBox1: TComboBox;
  23.     Label4: TLabel;
  24.     procedure Button1Click(Sender: TObject);
  25.     procedure Button2Click(Sender: TObject);
  26.     procedure FormCreate(Sender: TObject);
  27.   private
  28.     { Private-Deklarationen }
  29.   public
  30.     { Public-Deklarationen }
  31.   end;
  32.  
  33. var
  34.   Form1: TForm1;
  35.  
  36. implementation
  37.  
  38. uses
  39.     Login;
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TForm1.Button1Click(Sender: TObject);
  44. begin
  45.     if Table1.Active then
  46.        Table1.Close;
  47.     Table1.TableName := ComboBox1.Text;
  48.    RtDbGenID1.IDName := Edit1.Text;
  49.     Label2.Caption := IntToStr(RtDbGenID1.NewValue);
  50. end;
  51.  
  52. procedure TForm1.Button2Click(Sender: TObject);
  53. begin
  54.     if Table1.Active then
  55.        Table1.Close;
  56.     Table1.TableName := ComboBox1.Text;
  57.    RtDbGenID1.IDName := Edit1.Text;
  58.     Label3.Caption := IntToStr(RtDbGenID1.CurrentValue);
  59. end;
  60.  
  61. function SqlLogin(Database: TDatabase; AliasName,UserName,Password: string): Boolean;
  62. begin
  63.    if Database.Connected then
  64.       Database.Close;
  65.    Database.AliasName := AliasName;
  66.    Database.Params.Values['USER NAME'] := UserName;
  67.    Database.Params.Values['PASSWORD'] := Password;
  68.    Database.Open;
  69.    Result := Database.Connected;
  70. end;
  71.  
  72. procedure TForm1.FormCreate(Sender: TObject);
  73. var
  74.     List: TStringList;
  75. begin
  76.    if not Database1.Connected then
  77.    begin
  78.       LoginForm := TLoginForm.Create(Application);
  79.       try
  80.          if LoginForm.ShowModal=idOK then
  81.             try
  82.                SqlLogin(Database1,LoginForm.Alias,LoginForm.User,LoginForm.Password);
  83.             except
  84.                if (not Database1.Connected) then
  85.                   raise EDatabaseError.Create('Login fehlgeschlagen !');
  86.             end;
  87.       finally
  88.          LoginForm.Release;
  89.       end;
  90.    end;
  91.    if Database1.Connected then
  92.    begin
  93.        List := TStringList.Create;
  94.        Session.GetTableNames(Database1.DatabaseName,'',True,False,List);
  95.       ComboBox1.Items.Assign(List);
  96.       List.Free;
  97.    end;
  98. end;
  99.  
  100. end.
  101.